home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Invisible Universe
/
Invisible Universe (1995)(Voyager)[Mac-PC].iso
/
mac
/
MOVIES
/
TOUR.DIR
/
00047_Script_47
< prev
next >
Wrap
Text File
|
1995-11-15
|
703b
|
28 lines
on mouseDown
set mr = the movieRate of sprite 12
set the movieRate of sprite 12 = 0
set len = the duration of cast (the castNum of sprite 12)
set w = the width of sprite 12
set l = the left of sprite 12
set r = the right of sprite 12
set h = the mouseH
if h > r then set h = r
else if h < l then set h = l
set the locH of sprite 15 = h
set the movieTime of sprite 12 = ((h-l)*len)/w
updateStage
if mr = 0 then
global gTourLabel, gTourTimeSS, gTourTimeMW, gTourTimeCL
do "set gTourTime"&char 1 to 2 of gTourLabel & " = the movieTime of sprite 12"
playTour
else
set the movieRate of sprite 12 = 1
end if
end